home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_105_Menu < prev    next >
Encoding:
Text File  |  1990-03-23  |  803 b   |  58 lines
  1. { %filename% }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. Unit %UnitName%;
  5. Interface
  6.  
  7. Uses
  8. %if lang = MPW%
  9.     {$Load ToolBox.dump}
  10.         MemTypes,
  11.         QuickDraw,
  12.         OSIntf,
  13.         ToolIntf,
  14.         PackIntf,
  15.     {$Load}
  16.  
  17. %end if%
  18. %if lang = Think%
  19. {$ifc undefined Think_Pascal}
  20.     ListManager,
  21. {$endc}
  22. %end if%
  23.     %for each menuItem gen usesDialog%
  24.     Globals,
  25.     ResourceDefs,
  26.     DoScrap;
  27.  
  28. {----------}
  29. Procedure Init%MenuName%M;
  30. Procedure Do%MenuName% (itemNr:    integer);
  31.  
  32. {----------}
  33. Implementation
  34.  
  35. %if lang = MPW%
  36. {$D+}
  37. {$R+}
  38. {$OV+}
  39. {$S %unitname%}
  40.  
  41. %end if%
  42. {----------}
  43. Procedure Init%MenuName%M;
  44. Begin
  45. End; {Init%MenuName%M}
  46.  
  47. %for each menuitem gen doItem%
  48. {----------}
  49. Procedure Do%MenuName% {(itemNr:    integer)};
  50. Begin
  51.     case itemNr of
  52.         0:    ;
  53.         %for each menuitem gen handleitem%
  54.     end; {case}
  55. End; {Do%MenuName%}
  56.  
  57. End. {%UnitName%}
  58.